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DIRECTORY 

IODefs: FROM "iodefs", 
SegmentDefs: FROM "segmentdef s"; 

DEFINITIONS FROM IODefs, SegmentDefs; 

FileMap: PROGRAM IMPORTS IODefs, SegmentDefs SHARES SegmentDefs = PUBLIC BEGIN 

PrintFile: PROCEDURE [f ile: Fi leHandle] RETURNS [BOOLEAN] * 
BEGIN OPEN file; 

WriteString["SN"]; WriteOctal[fp. serial .part2]; 
WriteString[" "]; Wr i teOcta1[fp . leaderDA] ; WriteChar[SP] ; 
WriteDecimal[lock]; WriteString[" locks "]; 
WriteDecimal[segcount] ; Write5tring[" segs "]; 
WriteDecimal[swapcount] ; WriteString[" swap"]; 
IF read OR write OR append THEN WriteChar[* ]; 
IF read THEN WriteChar[ »R]; 
IF write THEN WriteChar[ 'W] ; 
IF append THEN WriteChar[ 'A] ; 
IF open THEN Wr iteString[" open"]; 
WriteChar[CR]; 
RETURN[~More[]]; 
END; 

1c: INTEGER; 

full: INTEGER = 18; 

More: PROCEDURE RETURNS [BOOLEAN] ■ 
BEGIN c: CHARACTER; 
IF (lc «• lc+1) >= full THEN 
BEGIN lc «• 0; 

DO -- until non-random input 
SELECT (c <- ReadChar[]) FROM 
SP,CR,LF => EXIT; 
DEL => PETURN[FALSE]; 
ENDCASE; 
ENDLOOP; 
END; 
RETURN[TRUE] 
END; 

DO lc «- 0; WriteChar[CR]; 

[] «- EnumerateFiles[PrintFi le] ; 
WriteChar[CR]; STOP; 
ENDLOOP; 

END. 


